home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 13 / Developer Source Volume 13 (I-MODE Publications, Inc.)(1999).iso / ORINF / JUN96 / HOSKF109.GIF

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  14KB  |  727x552  |  4-bit (12 colors)

Labels: text | screenshot | display | software | number | computer icon | font | web page
OCR: clsSmCalendar Properties 2 Sub udmDayClick(pDayObj AS Object) + ' Description: Method called to select and hilite object representing a day in calendar that user selected. - Parameter (s) : pDayObj Object specifies the object that represents a day in the calendar that was clicked. Application. Set Cursor (1) ' Get the day, month, year based on pDayObj's label vNewDay = CINT ( pDayObj . Label ) VNewMonth = MONTH ( udpCurrMonth ) VNewYear = YEAR ( udpCurrMonth ) ' Set udpCurrDate to the selected date udpCurrDate = CVDATE ( vNewMonth & "/" & vNewDay & "/" & vNewYear) ' Position the day_ hilite to the selected day clsSmCalendar. rctDays. rctHilite. PositionX = pDayObj . Positionx clsSmCalendar. rctDays. rctHilite. PositionY = pDayObj. PositionY clsSmCalendar. rctDays. rctHilite. txtHilite. Label = pDayObj . Label clsSmCalendar. rctDays. rctHilite. Visible = true Self. GetTopContainer () . ForceUpdate () ' Record which object was selected udpSelectedDayObj = pDayObj Update the date object tied to this calendar IF NOT ISNULL ( udpSetDateObj ) THEN IF CSTR (udpSetDateObj. Value) <> CSTR (udpCurrDate) THEN udpSetDateObj . Value = udpCurrDate END IF END IF

---